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Intelligent Telephone Prefix Dialer, standalone POTS environment 
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Intelligent Telephone Prefix 
Dialer embedded in an 
ISDN telephone set 
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Intelligent Telephone Prefix Dialer 
Programmed Instructions 
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mXELLIGENT TELEPHONE PREFIX DIALER PSEUDOCODE 

Version Beta 3.0 



Subroutines 

DISPLAYPREFIX® 
LINEMONITOR@ 

MONITORLINE® 

CAPTUREDIGITS@ 

CAPOPT10>SSTRIhSGS@ 

CAPREFIXSTRING® 

FLASHLINE@ 

GETNDX@ 

CHECK_FORjnEN@ 

DIALNUMBER® 

PARSEOPTIONS® 

PARSESTRING@ 



Data 



LENGTH 

TABLE 

SUM 

COUNT 

TELlNiO{8) 

PREFIX 

DL\LTONE FLAG 



DIAL_STRING(10) 

USER_^REQUEST_FLAG 
NDX 

NUMBER_OF_DIGITS_CAPTURED 

ON_HOOK_TIME_COUNTER 
BYPASS 



/* length of table*/ 

/♦start of table*/ 

/♦sum of digits*/ 

/♦count of digits^/ 

/*user dialed digits*/ 

/♦user defined dial prefix*/ 

/*Flag to indicate line state */ 

/♦OnHook = 0,QffHook= IV 

/* Line one to Off Hook Line two*/ 

/*The reparsed dial string necessary to complete */ 

/* the call*/ 

/♦Flag to initiate user input of prefix code*/ 
/♦# Pointer for user TELNO entries 
/*intoDL\LSTRBSrG*/ 

/*number of digits received by dtmf receiver before*/ 
/*timeout*/ 

/♦amount of time that receiver is on hook*/ 
/*bypass bit, if set to 1, bypasses flashook 2 and 3*/ 
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Program MAIN 

/♦Declare and initialize all variables*/ 
Declare and Intitilize Hardware specific variables for dtmf transceiver and other hardware 
Dtmf var byte 

Bypass var byte 

Dt_flag var bit 

Dt_det var INL.bh2 /*Detect bit from dtmf receiver*/ 

Dialtone_flag var bit 

Number_of_Dig!ts_Captured var bjtc /*Rarige index to telnoQ*/ 

Dig^t var byte /'Index of digits to dial by autodialer*/ 

1 var word 

L var byte 

K var bit 

Ndx var nib 

Gosub GETNDX /*Get ndx from EEPROM*/ 

For I = 1 to ndx - 1 

Get prefix code from EEPROM and place into dial_string(I) 
next 

GOSUB DISPLAYPREFDC /*Show the stored dialing prefix*/ 
CAPDIGTIS: 

GOSUB CAPTUREDIGITS /*Start listening for dial string digits entered by user*/ 
If NUMBER_OF_DIGITS_CAPTURED o (10 - NDX) + 1 then 
goto INHIBITDIAL 

GOSUB PARSESTRING /*Parse the TELNOQ into DIAL_STRINGO 

Pause 160 /*Time delay before initiating flash hook sequence*/ 

GOSUB FL ASHLINE /*First Flash hook*/ 

Pause 700 /*Time delay before further action*/ 

If BYPASS =1 then GOTO SKIP_FLASHES /*2'^ and 3"* flash only necessary for 3 

/*way call*/ 

GOSUB FLASHLINE /* 2nd Flash hook*/ 

Pause 700 /*Time delay before furth^ action*/ 

GOSUB FLASHLINE /* 3*^ Flash hook*/ 

Pause 700 /*Time delay before further action*/ 

Figure 6b 
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SKIP FLASHES: 



GOSUB DIALNUMBER 



pause 700 



/*Time delay before initiate redial*/ 
/♦Dial the number with the required prefix*/ 



INHIBITDIAL: 



GOSUB MONITORLINE 



GOSUB LINEMONITOR 



/*Stay put until line goes onhook*/ 
/♦Stay put until line goes offhook*/ 



GOTO CAPDIGTTS 



/* Start listening for digits again*/ 




SUBROUTINE:LINEMONITOR 
LOOPDTl: 

Set DIALTONE_FLAG fi-om (Telephone Line) /♦O is ONHOOK, 1 is OFFHOOK^/ 
IF DL\LTONE_FLAG indicates OFFHOOK then GOTO LOOPDTl 

Return 



SUBROUTINE:MONITORLINE 

Initialize ON_HOOK_TIME_COUNTER to Zero 
LOOPDT2: 

Set DIALTONE_FLAG fi-om (Telephone Line) /♦O is ONHOOK, I is OFFHOOK*/ 
IF DL\LTONE_FLAG indicates ONHOOK then 
Do 



Increment ON_HOOK__TIME_COUNTER 
GOTOLOOPDT2 
Done 

fi 

IF ON_HOOK_TIME_COUNTER > 800 then set BYPASS to 1 
fi 





Return 
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SUBROUTINE; CAPTUREDIGITS 
CAPTUREDIGITS: 

SETUP dtmf hardware for dtmf READ 
For I = 1 to 1700 /^Initialize Interdigit count down timer*/ 
Get DIALTONE_FLAG from (Telephone Line) /*If not still OFFHOOK then EXIT to MAIN*/ 
If DIALTONE_FLAG = 0 then GOTO MAIN 
fi 

POLL for dtmf tone from (DTMF RECEIVE CHIP) 

If tone not detected then NEXT I /*Increment Interdigit count dowTi timer*/ 

else 

Increment NUMBERjOFDlGlTSjC APTURED 

If NUMBER_OF_DIGITS_CAPTURED > (10 -NDX) + 1 then GOTO MAIN 
/*user dialed more than */ 

/•prefix digits plus user digits and does not need help here */ 
READ dtmf tone into variable DTMF 
TELNO(NUMBER_OF_DIGITS_CAPTURED) = DTMF 
NEXT I 

/♦Interdigit Timer has timed out. Check for number of digits received*/ 
IFNUMBER_OF_DIGITS_CAFTURED < (10- NDX) + I then 
Do 

If telno(l) = 12 and telno(2) = 1 then 

Do /*User has requested to input options*/ 

Gosub PARSEOPTIONS 

Goto MAIN /*Initiali2e with new user options*/ 

Done 

SetNUMBER_OF_DIGITS_CAPTURED= 0 
Done 
Return 

SUBROUTINE: PARSESTRING 
Forj = NDXto 10 

DIAL_STRING(3) - TELNO(3 - (NDX - I)) 
Next j 

Return /*♦*******♦♦♦****/ 

Figure 6d 
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SUBROUTINE: FLASHLINE 
Go ONHOOK 

Pause 600 msec '600 milliseconds, nominal, can be between 400 and 

'700ms 

Go OFFHOOK 

Return 

SUBROUTINE: DIALNUMBER 

IF PRIYAC Y_BIT = 1 then 
Do 

DTMFOUT(*67) /*Diai the Caller ID Block Code */ 

Done 

IF PRIVACY_BIT = 0 then 
Do 

DTMFOUT(*82) /*Dial the Caller ID Send Code*/ 

I>one 

IF ONE_PLUS_BIT = 1 then 
Do 

DTMFOUT( 1) /*Dial I before the area code, etc*/ 

Done 
ForDIGIT-ltolO 

DTMFOUT(DIALSTRING(DIGIT)) /*Dial the prefix code and the rest of the 

/*phone number*/ 

Return 

SUBROUTINE: PARSEOPTIONS 

Write to DisplayDevice("PRIVACY?: Y/N) /*Prompt for user to turn Call ID Block ON or ♦/ 

/♦OFF*/ 

Gosub C APOPTIONSTRESTGS /*Get user input*/ 
Write user input to EEPROM 
Read user input fi-om EEPROM 

Write user input from EEPROM to DisplayDevice /*User selection confirmed on */ 

/*DisplayDevice*/ 

Figure 6e 
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Write to DisplayDevice("l PLUS ON?: Y/N) /»Prompt for user to turn 1 PLUS Dialing 

/*ONorOFF*/ 
Gosub CAPOPTIONSTRINGS /♦Get user input*/ 
Write user input to EEPROM 
Read user input from EEPROM 

Write user input from EEPROM to DisplayDevice /*User selection confirmed on*/ 

/*DisplayDevice*/ 

Write to I>isplayDevice("EOTER ?REFIX# ) /*?rompt for user to enter dialing prefix*/ 
Gosub C APREFIXSTRING /*Get user input of dialing prefix*/ 
Write user input to EEPROM 
While us^ input from EEFROM o 12 
Do 

Read user input from EEPROM 
Gosub CHECK_FOR_TEN 

Write user input from EEPROM to DisplayDevice /*User entry confirmed on*/ 

/♦DisplayDevice*/ 

Done 

Return 

SUBROUTINE: DISPLAYPREFK 

READ PrefixData from EEPROM 

WRITE PrefixData from EEPROM to DisplayDevice 

Return 

SUBROUTINE. CAPOPTIONSTRINGS 

For I =1 to 1900 /* Time out if no user input*/ 

When data present from DTMFreceiver 

Do 

READ data from DTMFreceiver into option_bit 
Return 
Done 
Next 

Return 
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SUBROUTINE: CAPREFIXSTRING 
Mu-0 

For I =1 to 1900 /* Time out if no user input*/ 

When data present from DTMFreceiver 
Do 

Mu = mu + 1 

READ data from DTMFreceiver into telno(mu) 
If te\no(mu) = 12 or mu > 7 then 
Return 

fi 

done 

Next 
Return 

SUBROUTINE: GETNDX 
for i = 1 to 7 

read from start of prefix data from EEPROM into digit 

if digit - 12 then ret_ndx 
next 
return 
rel_ndx: 
ndx = I 
return 

SUBROUTINE. CHECK_FOR_TEN 

if telno(i) = 10 then zeroit 

return 

zeroit: 

telno(i) = 0 /*Format output for DisplayDevice*/ 

return 

Programmer Application Notes: 

1 . Actual programming language used was Parallax, Inc. PBASIC 

2. Processor used was the Parallax, Inc. BASIC Stamp n, BS2-IC 
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3. The Pause instruction argument is in milliseconds 

4. The processor clock speed is approximately 20MHZ 

5. The PBASIC interpreter executes approximately 3000 instructions per second, i.e. 0.3 milliseconds 
per instruction. Use the 0.3 milliseconds/instruction value to calculate timeouts and delays that are 
implemented using loops. 

6. Contact the inventor for future development ^d ^plication notes. 
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